﻿Public Class login
    Friend usuario As New usuario
    Public Sub sesion(ByVal idu As String)
        usuario.id = idu
        ' Try
        Dim qry As String
        Dim dataset As New DataSet
        qry = "select * from privilegios where usr_id=" & idu & " "
        Consulta(qry, dataset)
        For c = 0 To 6
            Select Case dataset.Tables("data").Rows(c)("pri_seccion")
                Case "usuarios"
                    usuario.usuarios = dataset.Tables("data").Rows(c)("pri_permiso")
                Case "bodegas"
                    usuario.bodegas = dataset.Tables("data").Rows(c)("pri_permiso")
                Case "estudios"
                    usuario.estudios = dataset.Tables("data").Rows(c)("pri_permiso")
                Case "kits"
                    usuario.kits = dataset.Tables("data").Rows(c)("pri_permiso")
                Case "movimientos"
                    usuario.movimienos = dataset.Tables("data").Rows(c)("pri_permiso")
                Case "investigadores"
                    usuario.investigadores = dataset.Tables("data").Rows(c)("pri_permiso")
                Case "inspectores"
                    usuario.inspectores = dataset.Tables("data").Rows(c)("pri_permiso")
            End Select
        Next

        ' Catch 

        ' End Try
        carga_menu_show()
    End Sub
    Public Sub carga_menu_show()
        ' MsgBox(usuario.usuarios)
        If usuario.usuarios > 0 Then
            main.UsuariosToolStripMenuItem.Enabled = True
        End If
        ' If usuario.sucursales > 0 Then
        ' main.SucursalesToolStripMenuItem.Enabled = True
        '  End If
        If usuario.bodegas > 0 Then
            main.BodegaToolStripMenuItem.Enabled = True
        End If
        If usuario.estudios > 0 Then
            main.EstudiosToolStripMenuItem.Enabled = True
        End If
        If usuario.kits > 0 Then
            main.KitsToolStripMenuItem2.Enabled = True
        End If
        If usuario.movimienos > 0 Then
            main.MovimientosToolStripMenuItem.Enabled = True
        End If
        If usuario.investigadores > 0 Then
            main.InvestigadoresToolStripMenuItem.Enabled = True
        End If
        If usuario.inspectores > 0 Then
            main.InspectoresDeToolStripMenuItem.Enabled = True
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Rut o contraseña no deben estar vacios")
            TextBox1.Text = ""
            TextBox2.Text = ""
            Exit Sub
        End If

        Dim str As String
        Dim dataset As New DataSet

        str = "select * from usuarios "
        str += "where usr_rut = '" + TextBox1.Text + "' "
        str += "and usr_clave = '" + TextBox2.Text + "' "
        Consulta(str, dataset)

        If dataset.Tables("data").Rows.Count = 0 Then
            MsgBox("Login Invalido!", MsgBoxStyle.Information, "Login")
            Exit Sub
        Else
            If dataset.Tables("data").Rows(0)("usr_activo") = "1" Then
                MsgBox("Este usuario ya esta activo en el sistema, porfavor ingrese en una sola ubicación", MsgBoxStyle.Information, "Login")
            Else

                MsgBox("Bienvenido Sr(a) " + dataset.Tables("data").Rows(0)("usr_nombre") + " " + dataset.Tables("data").Rows(0)("usr_apellido"), MsgBoxStyle.Information, "Login")
                'registro acceso

                main.Text = main.Text & " - Usuario Actual: " & dataset.Tables("data").Rows(0)("usr_nombre") + " " + dataset.Tables("data").Rows(0)("usr_apellido") & " Rut: " & dataset.Tables("data").Rows(0)("usr_rut")
                'Dim usuario As New usuario

                sesion(dataset.Tables("data").Rows(0)("usr_id"))
                entrar(dataset.Tables("data").Rows(0)("usr_id"))
                main.LogoutToolStripMenuItem.Enabled = True
                main.IngresoToolStripMenuItem.Enabled = False
                Me.Hide()
            End If
        End If



    End Sub

    Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        ValidarCaracteresEspeciales(e)
    End Sub

    Private Sub TextBox2_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        ValidarCaracteresEspeciales(e)
    End Sub

End Class